home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Ken Long / ProgressIcon / Progress.p next >
Encoding:
Text File  |  1994-12-04  |  2.6 KB  |  25 lines  |  [TEXT/PJMM]
  1. program ProgressIcon;
  2.  
  3.     var
  4.         getPt: Point;
  5.         typeList: SFTypeList;
  6.         reply: SFReply;
  7.         err: OSErr;
  8.  
  9.     procedure NewBitMap (var theBitMap: BitMap);
  10.     begin
  11.         with theBitMap, bounds do
  12.             begin
  13.                 rowBytes := ((right - left + 15) div 16) * 2;
  14.                 baseAddr := NewPtr(rowBytes * (bottom - top));
  15.                 if MemError <> noErr then
  16.                     baseAddr := nil;
  17.             end;
  18.     end;
  19.  
  20.     function AtEOF (fRefNum: Integer): Boolean;
  21.         var
  22.             currPos, eofPos: LongInt;
  23.     begin
  24.         err := GetFPos(fRefNum, currPos);
  25.         err := GetEOF(fRefNum, eofPo